home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2005 October / PCWOCT05.iso / Software / Resources / CutePDF 2.3 / converter.exe / GNUGS / PDFWRITE.PS < prev    next >
Text File  |  2002-02-23  |  8KB  |  284 lines
  1. %    Copyright (C) 1999, 2000, 2001 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: pdfwrite.ps,v 1.7.2.1 2002/02/22 19:45:55 ray Exp $
  17. % Writer for transmuting PDF files.
  18.  
  19. % NOTES:
  20. % We do editing by replacing objects (in the cache) and then doing a
  21. %   simple recursive walk with object renumbering.
  22. % Free variables:
  23. %   RMap [per input file] (dict): input_obj# => output_obj#
  24. %   PDFfile (file): current input file
  25. %   OFile (file): current output file
  26. %   XRef (dict): output_obj# => output_file_pos
  27. %   ToWrite: 0..N-1 => [obj# gen#]
  28.  
  29. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  30. .currentglobal true .setglobal
  31.  
  32. /PDEBUG where { pop } { /PDEBUG false def } ifelse
  33.  
  34. % ================ Object mapping ================ %
  35.  
  36. % Initialize the object number and location map.
  37. /omapinit {        % - omapinit -
  38.   /RMap 100 dict def
  39.   /XRef 100 dict def
  40.   PDEBUG { (omapinit) = } if
  41. } def
  42.  
  43. % Map an object number.
  44. /omapnew {        % <oldobj#> omap <newobj#> <isnew>
  45.   RMap 1 index .knownget {
  46.     exch pop false
  47.   } {
  48.     PDEBUG { (omap\() print dup =only } if
  49.     RMap dup length 1 add 2 index exch dup 5 1 roll put pop true
  50.     PDEBUG { (\) = ) print 1 index = } if
  51.   } ifelse
  52. } def
  53. /omap {            % <oldobj#> omap <newobj#>
  54.   omapnew pop
  55. } bind def
  56.  
  57. % Save and restore the object map.
  58. % Note that currentomap either returns a copy or calls omapinit.
  59. /currentomap {        % <copy> currentomap <omap>
  60.   {
  61.     [RMap dup length dict copy XRef dup length dict copy]
  62.   } {
  63.     [RMap XRef] omapinit
  64.   } ifelse
  65. } bind def
  66. /setomap {        % <omap> setomap -
  67.   aload pop /XRef exch def /RMap exch def
  68.   PDEBUG {
  69.     (setomap: #Xref = ) print XRef length =only
  70.     (, #RMap = ) print RMap length =
  71.   } if
  72. } bind def
  73.  
  74. % ================ Writing ================ %
  75.  
  76. % ---------------- Low-level output ---------------- %
  77.  
  78. % Write a string on the output file.
  79. /ows {            % <string> ows -
  80.   OFile exch writestring
  81. } def
  82.  
  83. % ---------------- Scalars ---------------- %
  84.  
  85. % Note that the '#' character isn't legal in a name unless it is a prefix
  86. % for a hex encoded character (for PDF 1.2 and later). The following assumes
  87. % that the names are already valid PDF 1.2+ names so that  we can treat the
  88. % '#' as a legal character. The next two hex characters are already in the
  89. % set of valid name characters. PDF 1.1 and earlier allowed spaces in names
  90. % which probably wouldn't make it past the tokenizer anyway.
  91. /pdfnamechars
  92.   (!"#$&'*+,-.0123456789:;=?@ABCDEFGHIJKLMNOPQRSTUVWXYZ\\^_`abcdefghijklmnopqrstuvwxyz|~)
  93. readonly def
  94. /pdfwritename {        % <name> pdfwritename -
  95.   (/) ows .namestring {
  96.     ( ) dup 0 4 -1 roll put
  97.     //pdfnamechars 1 index search {
  98.       pop pop pop
  99.     } {
  100.       pop 0 get 256 add 16 =string cvrs
  101.       dup 0 (#) 0 get put
  102.     } ifelse ows
  103.   } forall
  104. } def
  105.  
  106. % ---------------- Composite objects ---------------- %
  107.  
  108. /pdfwriteprocs mark
  109.   /resolveR { pdfwriteref }
  110.   /O { pdfwritenewref }
  111. .dicttomark readonly def
  112. /pdfwritearray {    % <array> pdfwritearray -
  113.   dup xcheck {
  114.     aload pop //pdfwriteprocs exch get exec
  115.   } {
  116.     % Because of a bug in Acrobat's parser for linearization parameters,
  117.     % we have to include some whitespace after the opening [ (!).
  118.     ([ ) ows { pdfwritevalue (\n) ows } forall (]) ows
  119.   } ifelse
  120. } def
  121.  
  122. /pdfwritedict {        % <dict> pdfwritedict -
  123.   dup xcheck {
  124.     pdfwritestream
  125.   } {
  126.     (<<) ows {
  127.       exch pdfwritevalue ( ) ows pdfwritevalue (\n) ows
  128.     } forall (>>) ows
  129.   } ifelse
  130. } def
  131.  
  132. % ---------------- References ---------------- %
  133.  
  134. /pdfwritenewref {    % <newobj#> pdfwritenewref -
  135.   OFile exch write=only ( 0 R) ows
  136. } def
  137.  
  138. /pdfwriteref {        % <obj#> <gen#> pdfwriteref -
  139.   1 index omapnew {
  140.     ToWrite dup length 5 -2 roll 2 packedarray put
  141.   } {
  142.     exch pop exch pop
  143.   } ifelse
  144.   pdfwritenewref
  145. } def
  146.  
  147. /pdfcopystring 200 string def
  148. /pdfwritestream {    % <streamdict> pdfwritestream -
  149.     % Remove File, FilePosition, and StreamKey;
  150.     % optimize by replacing an indirect Length.
  151.   dup dup length dict copy
  152.     % Stack: origdict dict
  153.   dup /File undef dup /FilePosition undef dup /StreamKey undef
  154.   dup /Length get dup oforce ne {
  155.     dup /Length 2 copy oget put
  156.   } if
  157.   exch dup /File get dup 3 -1 roll /FilePosition get setfileposition
  158.   pdfcopystream
  159. } def
  160.  
  161. % We put copying the stream contents in separate procedures so that we
  162. % can replace this function if desired.
  163. /pdfcopybytes {        % <fromfile> <tofile> <length> pdfcopybytes -
  164.   {
  165.     dup 0 eq { exit } if
  166.     //pdfcopystring 0 2 index 2 index length .min getinterval
  167.     3 index exch readstring 3 1 roll
  168.     3 index 1 index writestring length sub exch not { exit } if
  169.   } loop pop pop pop
  170. } def
  171. /pdfcopystream {    % <newstreamdict> <file> pdfcopystream -
  172.             %   (file has been positioned)
  173.   1 index pdfwritevalue (stream\n) ows
  174.   exch /Length get OFile exch pdfcopybytes
  175.   (endstream) ows
  176. } def
  177.  
  178. % ---------------- General values/objects ---------------- %
  179.  
  180. /pdfwritetypes mark
  181.     % Scalars
  182.   /nulltype { pop (null) ows }
  183.   /integertype { =string cvs ows }
  184.   /booleantype 1 index
  185.   /realtype { OFile exch write===only }
  186.   /stringtype 1 index
  187.   /nametype { pdfwritename }
  188.     % Composite/reference objects
  189.   /arraytype { pdfwritearray }
  190.   /packedarraytype 1 index
  191.   /dicttype { pdfwritedict }
  192. .dicttomark readonly def
  193.  
  194. /pdfwritevalue {    % <obj> pdfwritevalue -
  195.   PDEBUG { (****Writing: ) print dup === flush } if
  196.   //pdfwritetypes 1 index type get exec
  197. } def
  198.  
  199. % We make pdfwriteobjdef a separate procedure for external use.
  200. /pdfwriteobjheader {    % <newobj#> pdfwriteobjheader -
  201.   XRef 1 index OFile .fileposition put
  202.   PDEBUG { (XRef\() print dup =only (\) = ) print XRef 1 index get = } if
  203.   OFile exch write=only ( 0 obj\n) ows
  204. } def
  205. /pdfwriteobjdef {    % <newobj#> <value> pdfwriteobjdef -
  206.   exch pdfwriteobjheader
  207.   pdfwritevalue (\nendobj\n) ows
  208. } def
  209. /pdfwriteobj {        % <obj#> <gen#> pdfwriteobj -
  210.   1 index exch resolveR exch omap exch pdfwriteobjdef
  211. } def
  212.  
  213. % ---------------- File-level entities ---------------- %
  214.  
  215. % Write a PDF file header.
  216. % Free variables: OFile, PDFversion.
  217. /pdfwriteheader {    % - pdfwriteheader -
  218.   (%PDF-) ows OFile PDFversion write=
  219.   (%\347\363\317\323\n) ows
  220. } bind def
  221.  
  222. % Write a cross-reference table and trailer.
  223. /pdfwritexref {        % <firstobj#> <#objs> pdfwritexref -
  224.   (xref\n) ows
  225.   OFile 2 index write=only ( ) ows OFile 1 index write=
  226.   1 index add 1 sub 1 exch {
  227.     dup 0 eq {
  228.       pop (0000000000 65535 f \n) ows
  229.     } {
  230.       XRef exch get 1000000000 add =string cvs
  231.       dup 0 (0) 0 get put
  232.       ows ( 00000 n \n) ows
  233.     } ifelse
  234.   } for
  235. } bind def
  236. /pdfwritetrailer {    % <trailer> pdfwritetrailer -
  237.   (trailer\n) ows pdfwritevalue (\n) ows
  238. } bind def
  239. /pdfwritestartxref {    % <startpos> pdfwritestartxref -
  240.   (startxref\n) ows OFile exch write=
  241.   (%%EOF\n) ows
  242. } bind def
  243.  
  244. % ================ Top-level control ================ %
  245.  
  246. /pdfwrite {        % <file> <trailer> pdfwrite -
  247.   10 dict begin
  248.   /trailer exch def
  249.   /OFile exch def
  250.   /ToWrite 100 dict def
  251.   omapinit
  252.  
  253.     % Write the PDF file header.
  254.  
  255.   pdfwriteheader
  256.  
  257.     % Write the objects.
  258.  
  259.   trailer {
  260.     exch pop dup xcheck {    % The only executable objects are references.
  261.       aload pop pop pdfwriteobj
  262.     } {
  263.       pop
  264.     } ifelse
  265.   } forall
  266.     % Walk the object graph.
  267.   {
  268.     ToWrite dup length dup 0 eq { pop pop exit } if
  269.     1 sub 2 copy get 3 1 roll undef aload pop pdfwriteobj
  270.   } loop
  271.  
  272.     % Write the xref table and trailer.
  273.  
  274.   /xref OFile fileposition def
  275.   0 XRef length 1 add pdfwritexref
  276.   trailer dup length 1 add dict copy
  277.   dup /Size XRef length 1 add put pdfwritetrailer
  278.   xref pdfwritestartxref
  279.  
  280.   end
  281. } def
  282.  
  283. .setglobal
  284.